ad-mohasebat.mihanblog.com
درباره سایت
آخرین مطالب
- انجام پروژه CFD - سریعترین زمان ممکن تضمین کیفیت به همراه کلیپ آموزشی -
- انجام پروژه CFD کدنویسی و شبیه سازی
- تبدیل تصویر INDEX به خاکستری آموزش دستور IND2GRAY
- تبدیل ماتریس به تصویر خاکستری | آموزش دستور MAT2GRAY
- اجاره سرور گرافیکی - سیستم پردازش سریع گرافیکی - سرور پردازش موازی
- انجام برنامه نویسی CFD فرترن متلب نمونه کد فرترن روش تکرار نیوتن
- انجام پروژه محاسبات عددی فرترن نمونه کد فرترن ریشه های معادله درجه دوم
- انجام پروژه دانشجویی محاسبات عددی فرترن متلب نمونه کد فرترن به صورت صعودی مرتب کردن
- انجام برنامه نویسی محاسبات عددی پیشرفته نمونه کد فرترن انتگرال به روش ذوزنقه
- انجام پروژه برنامه نویسی سی اف دی فرترن نمونه کد فرترن تشخیص عدد اول
امکانات وب
گروه پژوهشی - آموزشی بنیان دانش توس در اسفند 1390 با همکاری تعدادی از دانشجویان تحصیلات تکمیلی دانشگاه های معتبر تهران و مشهد شروع به کار کرد و توفیقات زیادی کسب نمود که به تدریج در وبلاگ بارگزاری خواهد شد. در همین راستا شاخه آموزشی گروه اقدام به راه اندازی سایت moomsan.blog.ir نمود تا ضمن ارائه آمو
برچسب:
نویسنده: آریا زمانی
----------------------------------------------------------------------------------------------------------------------------------------
PROGRAM jacobi
IMPLICIT NONE
INTEGER::i,j,i1,i2,j1,n,j2,k,k1,t1
REAL::s,e
REAL,ALLOCATABLE::a(:,:),x(:),y(:),t(:)
PRINT*
PRINT*
PRINT*," 1
برچسب:
نویسنده: آریا زمانی
----------------------------------------------------------------------------------------------------------------------------------------
PROGRAM gauss
IMPLICIT NONE
INTEGER::n,i,j,j1,i2,i3,j3,i4,k
REAL::landa,s
REAL,ALLOCATABLE::a(:,:),x(:),b(:)
PRINT*
PRINT*,"matrix n dar n+1 zir ra dar nazar begi
برچسب:
نویسنده: آریا زمانی
گروه پژوهشی - آموزشی بنیان دانش توس در اسفند 1390 با همکاری تعدادی از دانشجویان تحصیلات تکمیلی دانشگاه های معتبر تهران و مشهد شروع به کار کرد و توفیقات زیادی کسب نمود که به تدریج در وبلاگ بارگزاری خواهد شد. در همین راستا شاخه آموزشی گروه اقدام به راه اندازی سایت moomsan.blog.ir نمود تا ضمن ارائه آمو
برچسب:
نویسنده: آریا زمانی
-------------------------------------------------------------------------------------------------------------------------------------
PROGRAM mabna_m_be_n
IMPLICIT NONE
INTEGER::a,m,n,k,s1,s2,j,i,r,a10,am
PRINT*
PRINT*," (a) = (?)"
PRINT*," m n"
PRINT*
PRINT*," a ra vared konid : "
RE
برچسب:
نویسنده: آریا زمانی
--------------------------------------------------------------------------------------------------------------------------------------
PROGRAM bisection
IMPLICIT NONE
INTEGER::k
REAL::x,xo,a,b,e,e1,a1,x1,t1,t2
!y=x**2-e**x
DO
PRINT*,"baze [a,b] ra vared konid : "
PRINT*,"a = "
READ*,a
PRINT*,"b =
برچسب:
نویسنده: آریا زمانی
--------------------------------------------------------------------------------------------------------------------------------------
PROGRAM gauss_sidel
IMPLICIT NONE
INTEGER::i,j,i1,j1,k,t1,n,j2,k1
REAL::s,e
REAL,ALLOCATABLE::a(:,:),x(:),y(:),t(:)
PRINT*
PRINT*
PRINT*," 1
برچسب:
نویسنده: آریا زمانی
گروه پژوهشی - آموزشی بنیان دانش توس در اسفند 1390 با همکاری تعدادی از دانشجویان تحصیلات تکمیلی دانشگاه های معتبر تهران و مشهد شروع به کار کرد و توفیقات زیادی کسب نمود که به تدریج در وبلاگ بارگزاری خواهد شد. در همین راستا شاخه آموزشی گروه اقدام به راه اندازی سایت moomsan.blog.ir نمود تا ضمن ارائه آمو
برچسب:
نویسنده: آریا زمانی
در اغلب برنامه ها نیاز داریم که اطلاعات ورودی را از صفحه کلید یا فایل بخوانیم و اطلاعات خروجی را در صفحه نمایش نشان دهیم یا آنها را در فایل خروجی ذخیره کنیم.دستور READ
این دستور برای دریافت ورودی از صفحه کلید بکار می رود و ساختار آن به شکل زیر است.
READ *, {input list} or
RAED([UNIT=] unit type, [FM
برچسب:
نویسنده: آریا زمانی
دستور OPEN
این دستور یک فایل را باز می کند و یک عدد به فایل اختصاص می دهد. این امکان وجود دارد که فایل را ایجاد کرد. ساختار این دستور به این شکل است:
OPEN(UNIT= number, FILE= ’Name of file’, STATUS= status, ACCESS= access…)
number عددی است که شما به فایل اختصاص می دهید (این عدد را بین 0 تا 255 انتخا
برچسب:
نویسنده: آریا زمانی
گروه پژوهشی - آموزشی بنیان دانش توس در اسفند 1390 با همکاری تعدادی از دانشجویان تحصیلات تکمیلی دانشگاه های معتبر تهران و مشهد شروع به کار کرد و توفیقات زیادی کسب نمود که به تدریج در وبلاگ بارگزاری خواهد شد. در همین راستا شاخه آموزشی گروه اقدام به راه اندازی سایت moomsan.blog.ir نمود تا ضمن ارائه آمو
برچسب:
نویسنده: آریا زمانی
PROGRAM nabejayi
IMPLICIT NONE
INTEGER::k
REAL::a,b,fa,fb,x,e,c,y
!F(x)=x^2 - 2^x
PRINT*
PRINT*," F(X) = X^2 - 2^X X = ? "
PRINT*
PRINT*," Baraye baze [a,b], a & b ra vared konid : "
READ*,a,b
PRINT*," Nerkhe hamgarayi ra vared konid : "
READ*,c
x=0
k=0
DO
k=k+1
y=x
fa=(a**2)-(2**
برچسب:
نویسنده: آریا زمانی
---------------------------------------------------------------------------------------------------------------------------------------
PROGRAM dIF
IMPLICIT NONE
REAL::x,fp,y1,y2,n,e,yp
!f(x)=(x**3)-2x+1
PRINT*
PRINT*," F(x) = x^3 - 2x + 1"
PRINT*
PRINT*," input n :"
READ*,n
PRINT*,"
برچسب:
نویسنده: آریا زمانی
--------------------------------------------------------------------------------------------------------------------------------------
PROGRAM keramer
IMPLICIT NONE
INTEGER::i,n,j
REAL::detnet,det
REAL,ALLOCATABLE::a(:,:),b(:),x(:),c(:)
PRINT*
PRINT*
PRINT*," 1 | X(1)a(1,1) + X(2)a(1,2) + ...
برچسب:
نویسنده: آریا زمانی
------------------------------------------------------------------------------------------------------------------------------------
PROGRAM deterMINan
IMPLICIT NONE
INTEGER::i,j,g,f,r,j1,k,s,n
REAL::landa,t
REAL,ALLOCATABLE::a(:,:),b(:)
PRINT*
PRINT*," for matrix(n,n) input n : "
READ*,n
ALLOCAT
برچسب:
نویسنده: آریا زمانی
-------------------------------------------------------------------------------------------------------------------------------------
PROGRAM tekrar_sade
IMPLICIT NONE
!f(x)=(e**x)-x-4
!x=(e**x)-4
!g(x)=(e**x)-4
INTEGER::k
REAL::x,y,e,c,t,r1,r2,a,b
PRINT*,"baze [a,b] ra vared konid : "
PRINT*,"a =
برچسب:
نویسنده: آریا زمانی
-------------------------------------------------------------------------------------------------------------------------------------
PROGRAM toomas
IMPLICIT NONE
INTEGER::n,i,j,k,l
REAL::landa
REAL,ALLOCATABLE::a(:,:),r(:),x(:)
PRINT*
PRINT*," _
برچسب:
نویسنده: آریا زمانی
----------------------------------------------------------------------------------------------------------------------------------------
PROGRAM daraje_2
IMPLICIT NONE
REAL::a,b,c,x1,x2,delta
PRINT*
PRINT*," 2 "
PRINT*," aX + bX + c = 0 ===>> a , b , c = ?"
P
برچسب:
نویسنده: آریا زمانی